﻿Public Class DeliveryLabel
	Inherits vCardItem

	''' <value>False</value>
	Public Property IsDomestic As Boolean = False

	''' <value>True</value>
	Public Property IsInternational As Boolean = True

	''' <value>True</value>
	Public Property IsPostal As Boolean = True

	''' <value>True</value>
	Public Property IsParcel As Boolean = True

	''' <value>False</value>
	Public Property IsHome As Boolean = False

	''' <value>True</value>
	Public Property IsWork As Boolean = True

	Public Property AddressLabel As String

	Protected Overrides Property vProperty As String
		Get
			Return "LABEL"
		End Get
		Set(value As String)
		End Set
	End Property

	Protected Overrides Property vValues As System.Collections.Generic.List(Of String)
		Get
			Dim myValues As New List(Of String)

			If IsDomestic Then myValues.Add("DOM")
			If IsInternational Then myValues.Add("INTL")
			If IsPostal Then myValues.Add("POSTAL")
			If IsParcel Then myValues.Add("PARCEL")
			If IsHome Then myValues.Add("HOME")
			If IsWork Then myValues.Add("WORK")

			Return myValues
		End Get
		Set(value As System.Collections.Generic.List(Of String))
		End Set
	End Property

	Protected Overrides Property vParameters As System.Collections.Generic.List(Of String)
		Get
			Dim myParameters As New List(Of String)

			myParameters.Add(AddressLabel)

			Return myParameters
		End Get
		Set(value As System.Collections.Generic.List(Of String))
		End Set
	End Property

	Public Sub New(AddressLabel As String)
		Me.AddressLabel = AddressLabel
	End Sub
End Class
